home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / Serious Demos / Symbolic Composer 4.2 / Environment / Projects / Examples / Visualizer ideas / Bach Zappa Mix < prev    next >
Text File  |  1998-08-01  |  2KB  |  34 lines
  1.  
  2. 22020449 
  3. 7405773 
  4. ("Geneva" 9 :srcor :plain (:color-index 0)) 
  5. (0 196609 2 3 393220 5 131078 7 262152 327689 131082 393227 327692 327693 65550 65551 262160 393233 327698 262163 393236 327701 196630 262167 196632 131097 327706 131099 65564 327709 393246 65567 327712 33 196642 262179 196644 131109 393254 65575 327720 41 196650 43 44 393261 46 131119 48 262193 327730 131123 393268 327733 327734 65591 65592 262201 131130 327739 196668 262205 327742 393279 131136 327745 66 262211 262212 131141 65606 196679 65608 393289 262218 65611 131148 65613 131150 196687 393296 196689 131154 393299 65620 262229 393302 393303 131160 327769 90 262235 262236 131165 65630 196703 65632 393313 262242 65635 131172 65637 131174 327783 196712 393321 196714 131179 393324 262253 65646 196719 131184 393329 65650 327795 131188 65653 131190 262263 262264 393337 393338 65659 262268 393341 393342 65663 262272 196737 393346 196739 131204 393349 131206 327815 136 262281 262282 131211 65676 196749 65678 393359 262288 65681 131218 65683 131220 196757 327830 151 131224 262297 327834 327835 131228 327837 262302 131231 65696 196769 131234 131235) 
  6. "; create Bach melodies with random phase fourier
  7. ; resynthesis of white noise and mix it with Zappa
  8.  
  9. (init-soup 'bach-zappa-soup
  10.     (vector-to-symbol a h
  11.          (vector-resynthesize 64 (gen-noise-white 128) 32 t)))
  12.  
  13. ; mix bursts of white noise into the soup
  14.  
  15. (mix-soup 'bach-zappa-soup
  16.    (vector-to-symbol a g (gen-noise-white 128)))
  17.  
  18. (gen-catalyze 'bach-zappa-soup)
  19.  
  20. " 
  21. 85 
  22. 0 
  23. nil 
  24. nil 
  25. nil 
  26. nil 
  27. 33554432 
  28. nil 
  29. nil 
  30. 16 
  31. 10 
  32. 2 
  33. 5 
  34. 4